Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim ̸ As Range
    Dim ޽ As String
    
    ޽ = " ߼Ϸ <> ư Ŭϼ!"
    
    If MsgBox(޽, vbYesNo, " ߼") = vbYes Then
        
        Set ̸ = Range("M5")
        
        If IsEmpty(̸) = False Then
        
            ActiveSheet.Copy
            
            With ActiveWorkbook
                .SaveAs Filename:=ThisWorkbook.Path & "\.xlsx"
                .SendMail Recipients:≠.Value, _
                          Subject:=" ߼մϴ."
            
                .Close
            End With
            
            Kill ThisWorkbook.Path & "\.xlsx"
        
        End If
        
    End If

End Sub